home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Development / General / MM3MCp.sea Folder / Made by Marksman / Sources / mm / mmCommonMM_Demo.cp < prev    next >
Encoding:
Text File  |  1994-01-16  |  69.2 KB  |  2,189 lines  |  [TEXT/MMCC]
  1. /*  mmCommonMM_Demo                         Common */
  2. /*  Copyright © 1994 George R. Cossey */
  3.  
  4. /*
  5.     Name:  mmCommonMM_Demo.c
  6.     Function:  Common for the Marksman™ specific code.
  7.     History: 1/16/94 Original by George Cossey
  8.  
  9. */
  10.  
  11.  
  12. #include "mmCommonMM_Demo.h"            /* Common */
  13. #include "CommonMM_Demo.h"                /* Common */
  14.  
  15. #include <Sound.h>
  16.  
  17. /* ======================================================= */
  18.  
  19. CApplication    *gApplication;                    /* The application itself */
  20. CMenus            *gMenus;                        /* Menu handler */
  21. CPreferences    *gPreferences;                    /* Preferences handler */
  22. CFiles            *gFiles;                        /* Files handler */
  23. CPrinting        *gPrinting;                        /* Printing handler */
  24.  
  25. UserEventHRec    UserEventList;                    /* User Event record list start */
  26. EventRecord        myEvent;                        /* Event record for all events */
  27. Boolean            WNE;                            /* WaitNextEvent trap is available */
  28. short            SleepValue;                        /* Sleep value for Wait on events */
  29. Boolean            doneFlag;                        /* Exit program flag */
  30. TEHandle        theInput;                        /* Used in text edit selections */
  31. RgnHandle        cursorRgn;                        /* Cursor region for WaitNextEvent */
  32. short            ReplyMode;                        /* Reply mode for AppleEvents */
  33.  
  34. Rect            tempRect;                        /* Temporary rect, not for long term use */
  35. Str255            sTemp;                            /* Temporary string, not for long term use */
  36. short            tempChar;                        /* Temporary use character */
  37. long            LTemp;                            /* Temporary use long variable */
  38. short            DType;                            /* Temporary use Type of dialog item */
  39. Handle            DItem;                            /* Temporary use Handle to the dialog item */
  40. ControlHandle    CItem;                            /* Temporary use Control handle */
  41.  
  42. WindowLocRec    theWindowLocRec;
  43.  
  44. Boolean            Doing_MovableModal;                /* For Movable Modal dialogs */
  45. Boolean            HoldOffUserEvents;                /* Flag for holding off UserEvents */
  46. Boolean            InTheForeground;                /* Flag for running in MultiFinder foreground */
  47.  
  48. HasRec            Has;                            /* Gestalt check results */
  49.  
  50. RGBColor        Black_ForeColor,White_BackColor;/* Standard colors */
  51.  
  52. MenuHandle    Menu_Apple;                    /* Menu handle,  */
  53. MenuHandle    Menu_File;                    /* Menu handle, File */
  54. MenuHandle    Menu_Edit;                    /* Menu handle, Edit */
  55. MenuHandle    Menu_Windows;                    /* Menu handle, Windows */
  56.  
  57.  
  58. CmmAlert                *gCurrentAlert;            /* The current Alert object */
  59. CAMy_Alert        *gMy_Alert;        /* The Alert object */
  60. CmmModalDialog            *gCurrentModalDialog;    /* The current Modal Dialog object */
  61. CDMy_Modal        *gMy_Modal;        /* The Modal Dialog object */
  62. CMDMy_Movable_Moda        *gMy_Movable_Moda;        /* The Modeless Dialog object */
  63. CMDMy_Modeless        *gMy_Modeless;        /* The Modeless Dialog object */
  64. CMDAbout_Demo        *gAbout_Demo;        /* The Modeless Dialog object */
  65. CWMy_basic_window        *gMy_basic_window;        /* The Window object */
  66. CWFloating_window        *gFloating_window;        /* The Window object */
  67.  
  68.  
  69. #define            LowestWindowIndex            0
  70. #define            HighestWindowIndex            10
  71. WindowPtr        TopMostWindows[12];
  72. WindowPtr        BottomMostWindows[12];
  73.  
  74. #define            lmWindowList                0x000009D6
  75.  
  76. /* Variables used by Select Volume */
  77. short            Last_vRefNum;
  78. long            Last_parID;
  79. Str255            Last_Name;
  80.  
  81. static void    VerifyWindowLayers(void);
  82.  
  83. static pascal Boolean mySelectCustomFileFilter(CInfoPBPtr pb,Ptr myDataPtr);
  84.  
  85. static pascal short mySelectDlgFilter(short item,DialogPtr theDialog,Ptr myDataPtr);
  86.  
  87. static void BasicSetup(DialogPtr theDialog,short theItem,Boolean Enabled,short MessageResID,
  88.     ControlHandle *theCItem);
  89.  
  90. /* ======================================================= */
  91. /* ======================================================= */
  92.  
  93. /* Routine: VerifyWindowLayers */
  94. /* Purpose: Verify all windows are at the proper layer */
  95.  
  96. static void VerifyWindowLayers()
  97. {
  98. short        Index,theLayer;
  99. WindowPeek    theWindowPeek;
  100. long         *theWindowListPtr,theRefCon;
  101. WindowPtr    theWindowPtr,theOutOfOrderWindowPtr;
  102. Boolean        Out_Of_Place;
  103.  
  104.  
  105. Out_Of_Place = true;
  106. while (Out_Of_Place)
  107.     {
  108.     Mk_ClearLayers();                                /* Clear all arrays, we will refill them */
  109.     theOutOfOrderWindowPtr = nil;
  110.     Out_Of_Place = false;
  111.  
  112.     Index = HighestWindowIndex + 1;
  113.     theWindowListPtr = (long *)lmWindowList;        /* Get the window list start */
  114.     theWindowPeek = (WindowPeek)*theWindowListPtr;    /* Get the window list start */
  115.     while ((theWindowPeek != nil) && (!Out_Of_Place))
  116.         {
  117.         if ((theWindowPeek->visible) && (theWindowPeek->windowKind == userKind))
  118.             {
  119.             theWindowPtr = (WindowPtr)theWindowPeek;/* Get the window pointer */
  120.  
  121.             theRefCon = GetWRefCon(theWindowPtr);
  122.             theRefCon = theRefCon & 0xFF000000;        /* Mask off, to get the layer */
  123.             theLayer = theRefCon >> 24;                /* Move into lower byte */
  124.             if (theLayer < LowestWindowIndex)        /* Pin at 0 */
  125.                 theLayer = LowestWindowIndex;
  126.             if (theLayer > HighestWindowIndex)        /* Pin at top */
  127.                 theLayer = HighestWindowIndex;
  128.             if (theLayer > Index)
  129.                 {
  130.                 Index = theLayer;
  131.                 Out_Of_Place = true;
  132.                 if (theOutOfOrderWindowPtr != nil)
  133.                     SendBehind(theOutOfOrderWindowPtr,theWindowPtr);
  134.                 }
  135.             else if (theLayer < Index)
  136.                 {
  137.                 Index = theLayer;
  138.                 TopMostWindows[theLayer] = theWindowPtr;
  139.                 BottomMostWindows[theLayer]  = theWindowPtr;
  140.                 }
  141.             else
  142.                 BottomMostWindows[theLayer]  = theWindowPtr;
  143.             theOutOfOrderWindowPtr = theWindowPtr;
  144.             }
  145.         theWindowPeek = theWindowPeek->nextWindow;/* Get the next window */
  146.         }
  147.     }
  148.  
  149. }
  150.  
  151. /* ======================================================= */
  152.  
  153. /* Routine: Mk_BehindWindow */
  154. /* Purpose: Get which window to place us behind */
  155.  
  156. WindowPtr Mk_BehindWindow(short theLayer)
  157. {
  158. short        LayerIndex;
  159. WindowPtr    ReturnWindowPtr;
  160.  
  161.  
  162. ReturnWindowPtr = (WindowPtr)-1;                    /* Default to In front of everyone */
  163.  
  164. VerifyWindowLayers();                                /* Make sure our tables are up to date */
  165.  
  166. LayerIndex = HighestWindowIndex;
  167. while ((LayerIndex > theLayer) && (LayerIndex >= LowestWindowIndex))
  168.     {
  169.     if (BottomMostWindows[LayerIndex] != nil)
  170.         ReturnWindowPtr = BottomMostWindows[LayerIndex];
  171.     LayerIndex = LayerIndex - 1;
  172.     }
  173.  
  174. return(ReturnWindowPtr);
  175. }
  176.  
  177. /* ======================================================= */
  178.  
  179. /* Routine: Mk_RegisterWindow */
  180. /* Purpose: Place layer in RefCon and verify layers */
  181.  
  182. void Mk_RegisterWindow(WindowPtr theWindowPtr,short theLayer)
  183. {
  184. long    theRefCon;
  185. long    theLLayer;
  186.  
  187.  
  188. theRefCon = GetWRefCon(theWindowPtr);                /* Get the window refcon */
  189. theRefCon = theRefCon & 0x00FFFFFF;                    /* Mask off, in case something else is there */
  190. theLLayer = theLayer;                                /* Get the window layer */
  191. theLLayer = theLLayer << 24;                        /* Move into upper byte */
  192. theRefCon = theRefCon | theLLayer;                    /* Mask layer into refcon */
  193. SetWRefCon(theWindowPtr, theRefCon);                /* Set the new refcon */
  194.  
  195. VerifyWindowLayers();                                /* Make sure our tables are up to date */
  196. }
  197.  
  198. /* ======================================================= */
  199.  
  200. /* Routine: Mk_ClearLayers */
  201. /* Purpose: Init our arrays for layered windows */
  202.  
  203. void Mk_ClearLayers()
  204. {
  205. short    Index;
  206.  
  207.  
  208. for (Index = LowestWindowIndex; Index <= HighestWindowIndex; Index++)
  209.     {
  210.     TopMostWindows[Index] = nil;
  211.     BottomMostWindows[Index] = nil;
  212.     }
  213. }
  214.  
  215. /* ======================================================= */
  216.  
  217. /* Routine: Mk_HiliteWindow */
  218. /* Purpose: Hilite our layered window */
  219.  
  220. void Mk_HiliteWindow(WindowPtr theWindowPtr)
  221. {
  222. WindowPeek    theWindowPeek;
  223. long         *theWindowListPtr;
  224. WindowPtr    WasHilighted,CkHilighted,BehindWindow;
  225. long        theRefCon;
  226. short        theLayer,theWasLayer;
  227.  
  228.  
  229. VerifyWindowLayers();                                /* Make sure our tables are up to date */
  230.  
  231. theRefCon = GetWRefCon(theWindowPtr);
  232. theRefCon = 0xFF000000 & theRefCon;                    /* Mask for top byte */
  233. theLayer = theRefCon >> 24;                            /* Move into lower byte */
  234. if (theLayer < LowestWindowIndex)                    /* Pin at 0 */
  235.     theLayer = LowestWindowIndex;
  236. if (theLayer > HighestWindowIndex)                    /* Pin at top */
  237.     theLayer = HighestWindowIndex;
  238.  
  239. theWindowListPtr = (long *)lmWindowList;            /* Get the window list start */
  240. theWindowPeek = (WindowPeek)*theWindowListPtr;        /* Get the window list start */
  241. WasHilighted = nil;
  242. while (theWindowPeek != nil)
  243.     {
  244.     if ((theWindowPeek->visible) && (theWindowPeek->windowKind == userKind))
  245.         {
  246.         if (theWindowPeek->hilited)
  247.             {
  248.             CkHilighted = (WindowPtr)theWindowPeek;
  249.             theRefCon = GetWRefCon(CkHilighted);
  250.             theRefCon = 0xFF000000 & theRefCon;        /* Mask for top byte */
  251.             theWasLayer = theRefCon >> 24;            /* Move into lower byte */
  252.             if (theWasLayer == theLayer)
  253.                 WasHilighted = CkHilighted;
  254.             }
  255.         }
  256.     theWindowPeek = theWindowPeek->nextWindow;
  257.     }
  258.  
  259. if (theWindowPtr != WasHilighted)
  260.     {
  261.     if (WasHilighted != nil)
  262.         {
  263.         theRefCon = GetWRefCon(WasHilighted);
  264.         theRefCon = 0xFF000000 & theRefCon;            /* Mask for top byte */
  265.         theWasLayer = theRefCon >> 24;                /* Move into lower byte */
  266.         if (theWasLayer < LowestWindowIndex)        /* Pin at 0 */
  267.             theWasLayer = LowestWindowIndex;
  268.         if (theWasLayer > HighestWindowIndex)        /* Pin at top */
  269.             theWasLayer = HighestWindowIndex;
  270.         if (theWasLayer == theLayer)
  271.             {
  272.             HiliteWindow(WasHilighted, false);
  273.             myEvent.message = (long)WasHilighted;
  274.             myEvent.modifiers = 0;
  275.             gApplication->DoActivate(&myEvent);        /* Deactivate, do links */
  276.             }
  277.         }
  278.  
  279.     HiliteWindow(theWindowPtr, true);
  280.     myEvent.message = (long)theWindowPtr;
  281.     myEvent.modifiers = 1;
  282.     gApplication->DoActivate(&myEvent);                /* Activate, do links */
  283.  
  284.     BehindWindow = Mk_BehindWindow(theLayer);        /* Move to correct layer on the screen */
  285.     if ((long)BehindWindow == -1L)
  286.         BringToFront(theWindowPtr);
  287.     else
  288.         SendBehind(theWindowPtr, BehindWindow);
  289.  
  290.     TopMostWindows[theLayer] = theWindowPtr;
  291.     }
  292.  
  293. }
  294.  
  295. /* ======================================================= */
  296.  
  297. /* Routine: Mk_DragWindow */
  298. /* Purpose: Drag our layered window */
  299.  
  300. void Mk_DragWindow(WindowPtr theWindowPtr,Point where, Rect bounds)
  301. {
  302. GrafPtr            savePort;
  303. CGrafPtr        WMgrPort;
  304. RgnHandle        hRegion,dragRgn;
  305. WindowPeek        theWindowPeek;
  306. long            result;
  307. short            Horz,Vert;
  308. CWindowPtr        theCWindowPtr;
  309. Rect            portBounds;
  310. PixMapHandle    thePixMapHandle;
  311.  
  312.  
  313. if (WaitMouseUp())
  314.     {
  315.     theWindowPeek = (WindowPeek)theWindowPtr;
  316.     theCWindowPtr = (CWindowPtr)theWindowPtr;
  317.  
  318.     GetPort(&savePort);
  319.     if (Has.ColorQD)
  320.         GetCWMgrPort(&WMgrPort);
  321.     else
  322.         GetWMgrPort((GrafPtr *)&WMgrPort);
  323.     SetPort((GrafPtr)WMgrPort);
  324.     hRegion = GetGrayRgn();
  325.     SetClip(hRegion);
  326.  
  327.     ClipAbove(theWindowPeek);
  328.  
  329.     dragRgn = NewRgn();
  330.     CopyRgn(theWindowPeek->strucRgn, dragRgn);
  331.  
  332.     result = DragGrayRgn(dragRgn, where, &bounds, &bounds, 0, nil);
  333.     Horz = result;
  334.     Vert = result >> 16;
  335.  
  336.     if (Vert != 0x8000)
  337.         {
  338.         if ((theCWindowPtr->portVersion & 0xC000) != 0)
  339.             {
  340.             thePixMapHandle = theCWindowPtr->portPixMap;
  341.             portBounds = (*thePixMapHandle)->bounds;
  342.             }
  343.         else
  344.             portBounds = theWindowPtr->portBits.bounds;
  345.  
  346.         Horz = Horz + (theWindowPtr->portRect.left - portBounds.left);
  347.         Vert = Vert + (theWindowPtr->portRect.top - portBounds.top);
  348.  
  349.         MoveWindow(theWindowPtr, Horz, Vert, false);
  350.         }
  351.  
  352.     DisposeRgn(dragRgn);
  353.     SetPort(savePort);
  354.     }
  355.  
  356. }
  357.  
  358. /* ======================================================= */
  359.  
  360. /* Routine: Mk_Is_FrontWindow */
  361. /* Purpose: Get the front window */
  362.  
  363. Boolean Mk_Is_FrontWindow(WindowPtr theWindowPtr)
  364. {
  365. Boolean    IsFront;
  366. short    Index;
  367.  
  368.  
  369. IsFront = false;
  370. for (Index = LowestWindowIndex; Index <= HighestWindowIndex; Index++)
  371.     {
  372.     if (TopMostWindows[Index] == theWindowPtr)
  373.         IsFront = true;
  374.     }
  375.  
  376. return(IsFront);
  377. }
  378.  
  379. /* ======================================================= */
  380.  
  381. /* Routine: Mk_CloseLayeredWindow */
  382. /* Purpose: Close a layered window */
  383.  
  384. void Mk_CloseLayeredWindow(WindowPtr theWindowPtr)
  385. {
  386. short    Index;
  387.  
  388.  
  389. for (Index = LowestWindowIndex; Index <= HighestWindowIndex; Index++)
  390.     {
  391.     if (TopMostWindows[Index] == theWindowPtr)
  392.         TopMostWindows[Index] = nil;
  393.     if (BottomMostWindows[Index] == theWindowPtr)
  394.         BottomMostWindows[Index] = nil;
  395.     }
  396. VerifyWindowLayers();                                /* Make sure our tables are up to date */
  397. }
  398.  
  399. /* ======================================================= */
  400.  
  401.  
  402. /* Routine: Init */
  403. /* Purpose: Set the default preferences */
  404.  
  405. void CmmPreferences::Init(void)
  406. {
  407. }
  408.  
  409. /* ======================================================= */
  410.  
  411. /* Routine: GetPrefParams */
  412. /* Purpose: Get the preferences Parameters */
  413.  
  414. void CmmPreferences::GetPrefParams(OSType *PrefCreator,OSType *PrefType,Str255 *thePrefsFilename,
  415.     long *PrefsRecSize,short *thePrefsFormatRevision)
  416. {
  417.  
  418. *PrefCreator = PrefsCreator;
  419. *PrefType = PrefsType;
  420. PStrCopy((Str255 *)PrefsFileName,thePrefsFilename);
  421. *PrefsRecSize = sizeof(PrefsRec);
  422. *thePrefsFormatRevision = PrefsFormatRevision;
  423. }
  424.  
  425. /* ======================================================= */
  426.  
  427. /* Routine: ReadPrefsPrivate */
  428. /* Purpose: Read the prefs ourselves */
  429.  
  430. void CmmPreferences::ReadPrefsPrivate(short PrefsRefNum)
  431. {
  432. }
  433.  
  434. /* ======================================================= */
  435.  
  436. /* Routine: UGetPreferences */
  437. /* Purpose: Get the preferences from the Prefs record already read in */
  438.  
  439. void CmmPreferences::UGetPreferences(Handle thePrefsH)
  440. {
  441. PrefsHRec thePrefs;
  442.  
  443.  
  444. thePrefs = (PrefsHRec)thePrefsH;
  445. theWindowLocRec = (*thePrefs)->theWindowLocRec;    /* Get the window location data */
  446. /* Use the form:   xxxx = (*thePrefs)->xxxx;    */
  447. }
  448.  
  449. /* ======================================================= */
  450.  
  451. /* Routine: USetPreferences */
  452. /* Purpose: Set new preferences, to be written out to the file */
  453.  
  454. void CmmPreferences::USetPreferences(Handle thePrefsH)
  455. {
  456. PrefsHRec thePrefs;
  457.  
  458.  
  459. thePrefs = (PrefsHRec)thePrefsH;
  460. (*thePrefs)->FormatRevision = PrefsFormatRevision;    /* Version number */
  461. (*thePrefs)->theWindowLocRec = theWindowLocRec;        /* Save the window location data */
  462. /* Use the form:   (*thePrefs)->xxxx = xxxx;    */
  463. }
  464.  
  465. /* ======================================================= */
  466.  
  467. /* Routine: GetPreferences */
  468. /* Purpose: Get the preferences */
  469.  
  470. void CmmPreferences::GetPreferences()
  471. {
  472. short        foundVRefNum,PrefsRefNum,FormatRevision,thePrefsFormatRevision;
  473. long        result,foundDirID,DataSize,count,PrefsRecSize;
  474. OSErr        theError;
  475. Boolean        GotPreferences,HasFindFolder;
  476. Str255        thePrefsFilename;
  477. Handle        PrefsHandle;
  478. FSSpec        PrefsFSSpec;
  479. OSType        PrefCreator,PrefType;
  480. SysEnvRec    theEnv;
  481.  
  482.  
  483. /* Get parameters to use */
  484. this->GetPrefParams(&PrefCreator,&PrefType,&thePrefsFilename,&PrefsRecSize,&thePrefsFormatRevision);
  485.  
  486. GotPreferences = false;                                /* No prefs yet */
  487. HasFindFolder = false;                                /* No FindFolder routine avail yet */
  488. PrefsRefNum = 0;                                    /* No prefs file yet */
  489.  
  490. if (Has.Gestalt)                                    /* Must have Gestalt */
  491.     {
  492.     theError = Gestalt(gestaltFindFolderAttr,&result);/* Need FindFolder */
  493.     if ((theError == 0) && ((result & (0x00000001 << gestaltFindFolderPresent)) != 0))
  494.         HasFindFolder = true;
  495.  
  496.     if (HasFindFolder)                                /* Must have FindFolder */
  497.         {
  498.         theError = FindFolder(kOnSystemDisk,kPreferencesFolderType,kCreateFolder,&foundVRefNum,&foundDirID);/* Get preference folder */
  499.         if (theError == 0)
  500.             {
  501.             theError = FSMakeFSSpec(foundVRefNum,foundDirID,thePrefsFilename,&PrefsFSSpec);
  502.             if (theError == fnfErr)                    /* File not found */
  503.                 theError = FSpCreate(&PrefsFSSpec,PrefCreator,PrefType,0);/* Create the file */
  504.             theError = FSpOpenDF(&PrefsFSSpec,fsRdWrPerm,&PrefsRefNum);/* Open the file */
  505.             }
  506.         }
  507.     else
  508.         {
  509.         theError = SysEnvirons(1,&theEnv);            /* Get volume environs */
  510.         theError = FSOpen(thePrefsFilename,theEnv.sysVRefNum,&PrefsRefNum);/* Open the file */
  511.         if (theError == fnfErr)                        /* File not found */
  512.             {
  513.             theError = Create(thePrefsFilename,theEnv.sysVRefNum,PrefCreator,PrefType);/* Create the file */
  514.             theError = FSOpen(thePrefsFilename,theEnv.sysVRefNum,&PrefsRefNum);/* Open the file */
  515.             }
  516.         }
  517.  
  518.     if (theError == 0)
  519.         {
  520.         theError = GetEOF(PrefsRefNum,&DataSize);    /* See if data in the file */
  521.         if (DataSize > 0)                            /* Must have data in the file to go on */
  522.             {
  523.             count = 2;                                /* Revision number size */
  524.             theError = FSRead(PrefsRefNum,&count,&FormatRevision);/* Get revision number */
  525.             theError = SetFPos(PrefsRefNum,fsFromStart,0);/* Beginning again */
  526.  
  527.             if ((FormatRevision == thePrefsFormatRevision) && (PrefsRecSize > 0))/* Only do if up to date revision */
  528.                 {
  529.                 PrefsHandle = NewHandleClear(PrefsRecSize);/* Get space for the prefs */
  530.                 if (PrefsHandle != nil)                /* Make sure we got our little tiny handle */
  531.                     {
  532.                     HLock(PrefsHandle);                /* Lock this for safety */
  533.                     count = PrefsRecSize;            /* See how much data to read */
  534.                     theError = FSRead(PrefsRefNum,&count,*PrefsHandle);/* Read it on in */
  535.                     if (theError == 0)
  536.                         this->UGetPreferences(PrefsHandle);/* Let the user get the prefs */
  537.  
  538.                     GotPreferences = true;            /* Got our preferences */
  539.                     HUnlock(PrefsHandle);            /* OK to unlock now */
  540.                     DisposeHandle(PrefsHandle);        /* All done with this record  */
  541.                     }
  542.                 }
  543.             else
  544.                 this->ReadPrefsPrivate(PrefsRefNum);    /* Let the user read the prefs himself */
  545.             }
  546.         if (PrefsRefNum != 0)                        /* Done with the file , close it */
  547.             theError = FSClose(PrefsRefNum);
  548.         }
  549.     }
  550.  
  551. if (!GotPreferences )                                /* If we did not get prefs , use default values */
  552.     this->SetPreferences();                            /* Set the default values */
  553.  
  554. }
  555.  
  556. /* ======================================================= */
  557.  
  558. /* Routine: SetPreferences */
  559. /* Purpose: Set new preferences */
  560.  
  561. void CmmPreferences::SetPreferences()
  562. {
  563. Str255        thePrefsFilename;
  564. OSErr        theError;
  565. long        result,foundDirID,count,PrefsRecSize;
  566. short        foundVRefNum,PrefsRefNum,thePrefsFormatRevision;
  567. Handle        PrefsHandle;
  568. Boolean        HasFindFolder;
  569. FSSpec        PrefsFSSpec;
  570. OSType        PrefCreator,PrefType;
  571. SysEnvRec    theEnv;
  572.  
  573.  
  574. /* Get parameters to use */
  575. this->GetPrefParams(&PrefCreator,&PrefType,&thePrefsFilename,&PrefsRecSize,&thePrefsFormatRevision);
  576. PrefsRefNum = 0;
  577.  
  578. PrefsHandle = NewHandleClear(PrefsRecSize);            /* Allocate the prefs space holder */
  579.  
  580. if (PrefsHandle != nil)
  581.     {
  582.     HLock(PrefsHandle);                                /* Lock for safety */
  583.  
  584.     this->USetPreferences(PrefsHandle);                /* Let the user set the other pref values */
  585.  
  586.     HasFindFolder = false;
  587.     if (Has.Gestalt)                                /* Must have Gestalt */
  588.         {
  589.         theError = Gestalt(gestaltFindFolderAttr,&result);/* Need FindFolder */
  590.         if ((theError == 0) && ((result & (0x00000001 << gestaltFindFolderPresent)) != 0))/* See if FindFolder */
  591.             HasFindFolder = true;
  592.  
  593.         if (HasFindFolder )                            /* Must have FindFolder */
  594.             {
  595.             theError = FindFolder(kOnSystemDisk,kPreferencesFolderType,kCreateFolder,&foundVRefNum,&foundDirID);
  596.             if (theError == 0)
  597.                 {
  598.                 theError = FSMakeFSSpec(foundVRefNum,foundDirID,thePrefsFilename,&PrefsFSSpec);
  599.                 if (theError == fnfErr)                /* File not found */
  600.                     theError = FSpCreate(&PrefsFSSpec,PrefCreator,PrefType,0);/* Create the file */
  601.                 theError = FSpOpenDF(&PrefsFSSpec,fsRdWrPerm,&PrefsRefNum);/* Open the file */
  602.                 }
  603.             }
  604.         else
  605.             {
  606.             theError = SysEnvirons(1,&theEnv);        /* Get volume environs */
  607.             theError = FSOpen(thePrefsFilename,theEnv.sysVRefNum,&PrefsRefNum);/* Open the file */
  608.             if (theError == fnfErr)                    /* File not found */
  609.                 {
  610.                 theError = Create(thePrefsFilename,theEnv.sysVRefNum,PrefCreator,PrefType);/* Create the file */
  611.                 theError = FSOpen(thePrefsFilename,theEnv.sysVRefNum,&PrefsRefNum);/* Open the file */
  612.                 }
  613.             }
  614.  
  615.         if (theError == 0)
  616.             {
  617.             count = PrefsRecSize;
  618.             theError = FSWrite(PrefsRefNum,&count,*PrefsHandle);/* Write new prefs */
  619.             theError = SetEOF(PrefsRefNum,count);    /* Reset EOF */
  620.  
  621.             if (PrefsRefNum != 0)
  622.                 theError = FSClose(PrefsRefNum);    /* Close file */
  623.  
  624.             HUnlock(PrefsHandle);
  625.             DisposeHandle(PrefsHandle);                /* Done with Prefs handle */
  626.             }
  627.         }
  628.     }
  629.  
  630. }
  631.  
  632.  
  633. /* ======================================================= */
  634.  
  635. void PositionWindow(WindowPtr theWindow,Point  WantLocation,Point DefaultPosition)
  636. {
  637. Boolean        FitsOK;
  638. Rect        WindowRect;
  639. GrafPtr        theDesktopPort;
  640. RgnHandle    theRgn,the2Rgn;
  641.  
  642.  
  643. FitsOK = false;                                        /*Init to not on current screen(s) */
  644. WindowRect = theWindow->portRect;                    /* Save the rect to get the size */
  645. OffsetRect(&WindowRect,-WindowRect.left,-WindowRect.top);    /* Offset to 0,0 */
  646. OffsetRect(&WindowRect,WantLocation.h,WantLocation.v);        /* Offset to wanted location */
  647.  
  648. GetWMgrPort(&theDesktopPort);                        /* Get the screen */
  649.  
  650. theRgn = NewRgn();                                    /* Make temp regions */
  651. the2Rgn = NewRgn();
  652. RectRgn(theRgn,&WindowRect);                        /* First region to our window rectangle on the screen */
  653. SectRgn(theRgn,theDesktopPort->visRgn,the2Rgn);        /* Do the intersection with the screen and window */
  654. if (EqualRgn(theRgn,the2Rgn))                        /* If all of window in the screen area then ... */
  655.     FitsOK = true;                                    /* ...all of the window is on the screen area */
  656.  
  657. DisposeRgn(theRgn);                                    /* Dispose of temp regions */
  658. DisposeRgn(the2Rgn);
  659. if ((FitsOK) && ((WantLocation.h != 0) || (WantLocation.v != 0)))    /* If all of window in the screen area then ... */
  660.     MoveWindow(theWindow,WantLocation.h,WantLocation.v,false);    /* Move to saved location */
  661. else
  662.     MoveWindow(theWindow,DefaultPosition.h,DefaultPosition.v,false); /* Move to original location */
  663. }
  664.  
  665. /* ======================================================= */
  666.  
  667. /* Routine: PStrCopy */
  668. /* Purpose: Copy Pascal strings */
  669.  
  670. void PStrCopy(Str255 *SourceString, Str255 *DestString)/* Copy Pascal strings */
  671. {
  672.  
  673.  
  674. *DestString[0] = *SourceString[0];                    /* Get the string size */
  675. if (*DestString[0] != 0)                            /* Do if there is anything in the string */
  676.     BlockMove(SourceString,DestString,*DestString[0]+1);
  677. }
  678.  
  679. /* ======================================================= */
  680.  
  681. /* Routine: PStrCat */
  682. /* Purpose: Concat Pascal strings */
  683.  
  684. void PStrCat(Str255 *SourceString, Str255 *DestString)/* Concat Pascal strings */
  685. {
  686. short    OldDestLength,NewDestLength,SizeFromSource;
  687.  
  688.  
  689. OldDestLength = *DestString[0];                        /* Get the string old length */
  690. SizeFromSource = *SourceString[0];                    /* Get the source length */
  691. NewDestLength = OldDestLength + SizeFromSource;        /* Get the string new length */
  692. if (NewDestLength > 255)                            /* Compare to length of the final string */
  693.     {
  694.     NewDestLength = 255;                            /* The string final length */
  695.     SizeFromSource = 255 - OldDestLength;            /* The string final length */
  696.     }
  697.  
  698. *DestString[0] = NewDestLength;                        /* Set the string length */
  699. if (SizeFromSource > 0)                                /* Do if there is anything in the string */
  700.     BlockMove((Ptr)((long)SourceString + 1L),(Ptr)((long)DestString+OldDestLength+1L),SizeFromSource);
  701. }
  702.  
  703. /* ======================================================= */
  704.  
  705. /* Routine: PStrCmp */
  706. /* Purpose: Compare Pascal strings for exact match, case sensitive */
  707.  
  708. Boolean PStrCmp(StringPtr Source1String,StringPtr Source2String)/* Compare Pascal strings */
  709. {
  710. short        theLength,Index;
  711. Boolean        theSame;
  712.  
  713.  
  714. theSame = false;                                    /* Init to different */
  715. theLength = *Source1String++;                        /* Get length of one string */
  716. if (theLength == *Source2String++)                    /* Compare to length of other string, easy and quick check */
  717.     {
  718.     theSame = true;                                    /* Init to same, now we will check each character */
  719.     for (Index=1; Index <= theLength; Index++)        /* Compare to length of other string, easy and quick check */
  720.         {
  721.         if (*Source1String++ != *Source2String++)    /* See if this character is the same */
  722.             theSame = false;                        /* Different */
  723.         }
  724.     }
  725.  
  726. return(theSame);
  727. }
  728.  
  729. /* ======================================================= */
  730.  
  731. /* Routine: CheckTrapAvailable */
  732. /* Purpose: See if trap is available, non-available traps all have a unique address */
  733.  
  734. Boolean CheckTrapAvailable (short trapNumber,short tType)/* See if a trap is available */
  735. {
  736. #define UnimplementedTrapNumber     0xA89F            /* Unimplemented trap number */
  737. Boolean    theResult;
  738.  
  739.  
  740. /* Check the two traps */
  741. theResult = (NGetTrapAddress(trapNumber, tType) != GetTrapAddress(UnimplementedTrapNumber));
  742.  
  743. return(theResult);
  744. }
  745.  
  746. /* ======================================================= */
  747.  
  748. /* Routine: GetUserEvent */
  749. /* Purpose: See if any user events are available */
  750.  
  751. void GetUserEvent(UserEventPRec TheUserEvent)
  752. { 
  753. UserEventHRec    NextUserEvent;                        /* The next user event */
  754.  
  755.  
  756. TheUserEvent->ID = UserEvent_None;                    /* Set ID to no events are available */
  757. if (UserEventList != NIL)                            /* Get first entry in the list */
  758.     {
  759.     HLock((Handle)UserEventList);                    /* Lock for safety */
  760.     TheUserEvent->ID = (*UserEventList)->ID;        /* The event ID */
  761.     TheUserEvent->ID2 = (*UserEventList)->ID2;        /* The optional ID */
  762.     TheUserEvent->Data1 = (*UserEventList)->Data1;    /* The optional data */
  763.     TheUserEvent->Data2 = (*UserEventList)->Data2;    /* The optional data */
  764.     TheUserEvent->theHandle = (*UserEventList)->theHandle;/* The optional handle */
  765.     NextUserEvent = (*UserEventList)->Next;            /* The next list */
  766.  
  767.     DisposHandle((Handle)UserEventList);            /* Remove this list item */
  768.     UserEventList = NextUserEvent;                    /* Make the next item the new first item */
  769.     }
  770. }
  771.  
  772. /* ======================================================= */
  773.  
  774. /* Routine: Add_UserEvent */
  775. /* Purpose: Add a user event */
  776.  
  777. void Add_UserEvent(short ID1,short  ID2,long Data1,long Data2,Handle  theHandle)
  778. { 
  779. UserEventHRec    NewUserEvent;                        /* The new user event */
  780. UserEventHRec    theUserEvent;                        /* The user event */
  781.  
  782.  
  783. NewUserEvent = (UserEventHRec)NewHandle(sizeof(UserEventRec));/* Allocate a record */
  784. if (NewUserEvent != NIL)                            /* Only do if we got the new record */
  785.     {
  786.     HLock((Handle)NewUserEvent);                    /* Lock for safety */
  787.     (*NewUserEvent)->ID = ID1;                        /* The event ID */
  788.     (*NewUserEvent)->ID2 = ID2;                        /* The optional ID */
  789.     (*NewUserEvent)->Data1 = Data1;                    /* The optional data */
  790.     (*NewUserEvent)->Data2 = Data2;                    /* The optional data */
  791.     (*NewUserEvent)->theHandle = theHandle;            /* The optional handle */
  792.     (*NewUserEvent)->Next = NIL;                    /* No next item after this one */
  793.  
  794.     if (UserEventList == NIL)                        /* See if anyone is in the list yet */
  795.         UserEventList = NewUserEvent;                /* Make this one the first in the list */
  796.     else
  797.         {
  798.         theUserEvent = UserEventList;                /* Get the first one */
  799.         while ((*theUserEvent)->Next != NIL)        /* Get the next one */
  800.             {
  801.             theUserEvent = (*theUserEvent)->Next;
  802.             }
  803.         (*theUserEvent)->Next = NewUserEvent;        /* Tack on to the end */
  804.         }
  805.     }
  806. }
  807.  
  808. /* ======================================================= */
  809.  
  810. /* Routine: SetNameForPopup */
  811. /* Purpose: Set the title for a popup control */
  812.  
  813. void SetNameForPopup(ControlHandle theControl)
  814. { 
  815. Handle    theHandle;                                    /* The resource handle */
  816. ResType    theType;                                    /* Returned type */
  817. short    theID;                                        /* Returned ID */
  818. short    theMenuID;                                    /* Menu ID */
  819.  
  820.  
  821. theMenuID = GetCtlMax(theControl);                    /* Get the menu ID */
  822. theHandle = Get1Resource('MENU', theMenuID);        /* See if the resource is out there */
  823. if (theHandle != nil)                                /* See if we got the menu */
  824.     GetResInfo(theHandle,&theID,&theType,sTemp);    /* Get the title */
  825. else                                                /* Else no menu here */
  826.     sTemp[0] = 0;                                    /* Get the title */
  827. SetCTitle(theControl,sTemp);                        /* Set the title */
  828. }
  829.  
  830. /* ======================================================= */
  831.  
  832. /* Routine: Make_A_List */
  833. /* Purpose: This is a routine used to make a new list */
  834.  
  835. void Make_A_List(ListHandle *theList,Rect *theListRect,WindowPtr theWindow,short theStringResourceID,
  836.     short theSize,short theFont,Style theStyle,Boolean InDialog)
  837. {
  838. Point    cSize;                                        /* Use to point to proper row */
  839. Handle    theHandle;                                    /* Temp Handle */
  840. Rect    dataBounds;
  841.  
  842.  
  843. TextSize(theSize);                                    /* Set text size */
  844. TextFont(theFont);                                    /* Set text font */
  845. TextFace(theStyle);                                    /* Set text style */
  846.  
  847. tempRect = *theListRect;
  848. tempRect.right = tempRect.right - 15;                /* Go inside the scroll bar area */
  849. SetRect(&dataBounds, 0, 0, 1, 0);                    /* Make the empty list */
  850. cSize.h = theListRect->right - 15 - theListRect->left;/* Get the width of the list */
  851. cSize.v = 0;                                        /* Set the HEIGHT of each list element, based on font selected */
  852.  
  853. *theList = LNew(&tempRect, &dataBounds, cSize, 0, theWindow, TRUE, FALSE, FALSE, TRUE);/* Create the list */
  854. (**theList)->selFlags = lOnlyOne + lNoNilHilite;    /* Set for only one active item at a time */
  855. LDoDraw(FALSE,*theList);                            /* Do not Draw this list structure */
  856.  
  857. theHandle = Get1Resource('STR#',theStringResourceID);/* See if any strings */
  858. if (theHandle != NIL)
  859.     {
  860.     cSize.h = 0;                                    /* Point to the correct column, starts at zero */
  861.     cSize.v = -1;                                    /* Point to the correct row, starts at zero */
  862.     do
  863.         {
  864.         GetIndString(sTemp, theStringResourceID, cSize.v + 2);/* Get the new string */
  865.         if (sTemp[0] > 0)
  866.             Add_List_String(sTemp, *theList, &cSize);/* Add in the new string */
  867.         }
  868.     while (sTemp[0] != 0);                            /* Add all the strings in this resource */
  869.     }
  870.  
  871. LDoDraw(TRUE,*theList);                                /* Draw this list structure */
  872. cSize.h = 0;                                        /* All elements are in column 0e */
  873. cSize.v = 0;                                         /* Select the first list element */
  874. LSetSelect(TRUE, cSize,*theList);
  875.  
  876. if (InDialog)
  877.     TextFont(systemFont);                            /* Back to the system font */
  878. else
  879.     TextFont(applFont);                                /* Back to the application font */
  880. TextSize(12);                                        /* Back to the application size */
  881. TextFace(0);                                        /* Set text style */
  882. }
  883.  
  884. /* ======================================================= */
  885.  
  886. void Play_The_Sound(short ResID)
  887. {
  888. Handle        ResHandle;                                /* The sound resource handle */
  889. short        SndResourceID;                            /* Sound resource ID */
  890. Str255        SndName;                                /* Sound name*/
  891. ResType        theType;                                /* Resource type */
  892. OSErr        MyErr;                                    /* Error flag */
  893.  
  894.  
  895. ResHandle = Get1Resource('snd ', ResID);            /* See if the resource is out there */
  896. if (ResHandle != NIL)                                /* Only do if we got the sound */
  897.     {
  898.     GetResInfo(ResHandle,&SndResourceID,&theType,SndName);
  899.     MyErr = SndPlay(NIL,ResHandle,FALSE);
  900.     ReleaseResource(ResHandle);
  901.     }
  902. }
  903.  
  904. /* ======================================================= */
  905.  
  906. /* Routine: Add_List_String */
  907. /* Purpose: This is a routine used to add strings to an existing list */
  908.  
  909. void Add_List_String(Str255 theString,ListHandle theList,Point *cSize) 
  910. {
  911. short    theRow;                                        /* The Row that we are adding */
  912.  
  913.  
  914. if (theList != NIL)  
  915.     {
  916.     cSize->h = 0;                                    /* Point to the correct column */
  917.     theRow = LAddRow(1, 32000, theList);            /* Add another row at the end of the list */
  918.     cSize->v = theRow;                                /* Point to the row just added */
  919.     LSetCell(&theString[1], theString[0], *cSize,theList);/* Place string in row just created */
  920.     }
  921. }
  922.  
  923. /* ======================================================= */
  924.  
  925. /* Routine: Get_TE_String */
  926. /* Purpose: This is a routine used to get a string from a TE area, limited to 250 characters */
  927.  
  928. void Get_TE_String(TEHandle theTEArea,Str255 *theString)
  929. { 
  930. short Index;                                        /* Use to loop thru the characters */
  931. short TitleLength;                                    /* Number of characters to do */
  932. CharsHandle theCharsHandle;                            /* Used to get global edit text */
  933. Ptr theStringPtr;                                    /* Pointer to the string, byte level */
  934. Ptr theTECharPtr;                                    /* Pointer to the string, byte level */
  935.  
  936.  
  937. theCharsHandle = TEGetText(theTEArea);                /* Get the character handle */
  938. HLock ( ( Handle ) theCharsHandle );                /* Lock it for safety */
  939. theTECharPtr = (Ptr)*theCharsHandle;                /* Get string Ptr */
  940. TitleLength = (*theTEArea)->teLength;                /* Get the number of characters */
  941. *theString[0] = 0;                                    /* Start with an empty string */
  942. if (TitleLength > 0) 
  943.     {
  944.     theStringPtr = (Ptr)((long)theString + (long)1);/* Start of the string data */
  945.     if (TitleLength > 250) 
  946.         TitleLength = 250;
  947.     for (Index = 0; Index < TitleLength; Index++)
  948.         *theStringPtr++ = (char)(*theTECharPtr++);
  949.     *theString[0] = TitleLength;
  950.     }
  951. }
  952.  
  953. /* ======================================================= */
  954.  
  955. /* Routine: Make_TE_Area */
  956. /* Purpose: This is a routine used to create a TE area */
  957.  
  958. void Make_TE_Area(TEHandle *theTEArea,Rect *Position,short theFontSize,
  959.     short theFont,short DefaultStringID)
  960. {
  961. FontInfo    ThisFontInfo;                            /* Use to get the font data */
  962.  
  963.  
  964. TextSize(theFontSize);                                /* Set the size */
  965. TextFont(theFont);                                    /* Set the font */
  966. GetFontInfo(&ThisFontInfo);                            /* Get Ascent height for positioning */
  967.  
  968. tempRect = *Position;                                /* Get the rect */
  969. FrameRect(&tempRect);                                /* Frame this TE area */
  970. InsetRect(&tempRect, 3, 3);                            /* Indent for TE inside of box */
  971. *theTEArea = TENew(&tempRect, &tempRect);            /* Create the TE area */
  972. if (theInput != NIL)                                /* See if there is already a TE area */
  973.     TEDeactivate(theInput);                            /* Yes, so turn it off */
  974.  
  975. theInput = *theTEArea;                                /* Activate the TE area */
  976. GetIndString(sTemp, DefaultStringID, 1);            /* Get the default string */
  977. TESetText(&sTemp[1], sTemp[0], theInput);            /* Place default text in the TE area */
  978. TEActivate(theInput);                                /* Make the TE area active */
  979.  
  980. TextSize(12);                                        /* Set the size */
  981. TextFont(applFont);                                    /* Set the font */
  982. }
  983.  
  984. /* ======================================================= */
  985.  
  986. /* Routine: Plot_Sicn */
  987. /* Purpose: This is a routine used to plot an Sicn, small 16x16 icon */
  988.  
  989. void Plot_Sicn(short theSicnID,Rect *Position)
  990. { 
  991. typedef struct SmallIconRec{
  992.     long    theIcon[16];
  993. }*SmallIconPtr,**SmallIconHand;
  994.  
  995. SmallIconHand    SmallIcon;                            /* Handle to the SICN resource */
  996. BitMap            theBitMap;                            /* Bitmap for plotting */
  997. Rect            sourceRect, DestRect;                /* Rects for plotting */
  998. GrafPtr            thePort;                            /* Port to draw on to */
  999.  
  1000.  
  1001. SmallIcon = (SmallIconHand)GetResource('SICN', theSicnID);/* Get the resource */
  1002. if (SmallIcon != NIL)                                /* Do if there is a resource */
  1003.     {
  1004.     SetRect(&sourceRect, 0, 0, 16, 16);                /* Sicns are 16 x 16 */
  1005.     DestRect = *Position;                            /* Destination */
  1006.     theBitMap.baseAddr = (Ptr)&(*SmallIcon)->theIcon;/* Base address of the bitmap */
  1007.     theBitMap.rowBytes = 2;                            /* 2*8 = 16 */
  1008.     theBitMap.bounds = sourceRect;                    /* Source rect size */
  1009.     GetPort(&thePort);                                /* Get the current port */
  1010.     CopyBits(&theBitMap, &thePort->portBits, &sourceRect, &DestRect, srcCopy, NIL);/* Plot it */
  1011.     }
  1012. }
  1013.  
  1014. /* ======================================================= */
  1015.  
  1016. /* Routine: HandleWScrollBar */
  1017. /* Purpose: This is a routine used to handle a scrollbar */
  1018.  
  1019. void HandleWScrollBar (Point myPt,short code,short Increment,short LIncrement,ControlHandle theControl)
  1020. {
  1021. short    theValue;                                    /* Value of the scrollbar */
  1022. long    MaxTick;                                    /* Timer used for repeat scrolling */
  1023. Boolean    FirstTime;                                    /* Flag to start scrolling */
  1024. short    Start,Stop;
  1025.  
  1026.  
  1027. Start = GetCtlMin(theControl);
  1028. Stop = GetCtlMax(theControl);
  1029.  
  1030. FirstTime = TRUE;                                    /* Do the scroll the first time also */
  1031. while (StillDown() || FirstTime)                    /* Do the scroll as long as the button is down */
  1032.     {                                                /* Timer used for repeat scrolling */
  1033.     FirstTime = FALSE;                                /* Do the scroll the first time only unless auto */
  1034.     HiliteControl(theControl, code);                /* Darken the arrow */
  1035.     theValue = GetCtlValue(theControl);                /* Get current state */
  1036.  
  1037.     if (code == inUpButton)                            /* See if in the up/left arrow */
  1038.         {
  1039.         theValue = theValue - Increment;            /* Subtract the single decrement */
  1040.         if (theValue < Start)                        /* Check for boundary conditions */
  1041.             theValue = Start;                        /* Bump at the start value */
  1042.         }
  1043.  
  1044.     if (code == inDownButton)                        /* See if in the down/right arrow */
  1045.         {
  1046.         theValue = theValue + Increment;            /* Add the single increment */
  1047.         if (theValue > Stop)                         /* Check for boundary conditions */
  1048.             theValue = Stop;                        /* Bump at the stop value */
  1049.         }
  1050.  
  1051.     if (code == inPageUp)                            /* See if in the up/left grey area */
  1052.         {
  1053.         theValue = theValue - LIncrement;            /* Subtract the page increment */
  1054.         if (theValue < Start)                         /* Check for boundary conditions */
  1055.             theValue = Start;                        /* Bump at the Start value */
  1056.         }
  1057.  
  1058.     if (code == inPageDown)                            /* See if in the down/right grey area */
  1059.         {
  1060.         theValue = theValue + LIncrement;            /* Add the page increment */
  1061.         if (theValue > Stop)                        /* Check for boundary conditions */
  1062.             theValue = Stop;                        /* Bump at the Stop value */
  1063.         }
  1064.  
  1065.     if (code == inThumb)                            /* See if in the drag box area */
  1066.         {
  1067.         code = TrackControl(theControl, myPt, NIL);    /* Let the OS drag it around */
  1068.         theValue = GetCtlValue(theControl);            /* Get current state */
  1069.         }
  1070.  
  1071.     SetCtlValue(theControl, theValue);                /* Set new state */
  1072.  
  1073.     MaxTick = TickCount() + 9;                        /* Time delay for auto-scroll */
  1074.     do                                                /* Start of delay routine */
  1075.         {}
  1076.     while ((Button()) && (TickCount() < MaxTick));    /* Exit when time up or mouse button up */
  1077.     HiliteControl(theControl, 0);                    /* Lighten the arrow */
  1078.     }                                                /* End for StillDown */
  1079. }
  1080.  
  1081. /* ======================================================= */
  1082.  
  1083. /* Routine: mySelectDlgFilter */
  1084. /* Purpose: Filter routine for Select Volume routine */
  1085.  
  1086. static pascal short mySelectDlgFilter (short item,DialogPtr theDialog,Ptr myDataPtr)
  1087. {
  1088. short            theItem;
  1089. short            theWidth;
  1090. short            theNameWidth;
  1091. short            DType;
  1092. Handle            DItem;
  1093. ControlHandle    CItem;
  1094. Str255            sTemp;
  1095. Str255            theName;
  1096. Str255            LastChar;
  1097. Point            cSize;
  1098. Rect            dataBounds;
  1099. Boolean            NamesAreSame;
  1100.  
  1101.  
  1102. theItem = item;
  1103.  
  1104. if (theItem == sfHookNullEvent)
  1105.     {
  1106.     NamesAreSame = PStrCmp((StringPtr)&Last_Name,(StringPtr)&gFiles->Files.theStdFileReply.sfFile.name);
  1107.     if ((Last_vRefNum != gFiles->Files.theStdFileReply.sfFile.vRefNum) || (Last_parID != gFiles->Files.theStdFileReply.sfFile.parID) || (!NamesAreSame))
  1108.         theItem = sfItemFileListUser;
  1109.     }
  1110. else
  1111.     theItem = theItem;
  1112.  
  1113. if (theItem == sfItemFileListUser)
  1114.     {
  1115.     if ((Last_vRefNum != gFiles->Files.theStdFileReply.sfFile.vRefNum) || (Last_parID != gFiles->Files.theStdFileReply.sfFile.parID) || (Last_Name != gFiles->Files.theStdFileReply.sfFile.name))
  1116.         {
  1117.         Last_vRefNum = gFiles->Files.theStdFileReply.sfFile.vRefNum;
  1118.         Last_parID = gFiles->Files.theStdFileReply.sfFile.parID;
  1119.         PStrCopy((Str255 *)gFiles->Files.theStdFileReply.sfFile.name,&Last_Name);
  1120.         GetDItem(theDialog, 10, &DType, &DItem, &tempRect);
  1121.         theWidth = tempRect.right - tempRect.left - 10;
  1122.         PStrCopy((Str255 *)"\pSelect '",&sTemp );
  1123.         theWidth = theWidth - StringWidth(sTemp);
  1124.         PStrCopy((Str255 *)gFiles->Files.theStdFileReply.sfFile.name,&theName);
  1125.         theNameWidth = StringWidth(theName);
  1126.         if (theNameWidth > theWidth)
  1127.             {
  1128.             LastChar[0] = 1;
  1129.             LastChar[1] = theName[theName[0]];
  1130.             PStrCopy(&theName,&sTemp); 
  1131.             PStrCat((Str255 *)"\p...",&sTemp);
  1132.             PStrCat(&LastChar,&sTemp); 
  1133.             while (StringWidth(sTemp) > (theWidth - 5))
  1134.                 {
  1135.                 theName[0] = theName[0] - 1;
  1136.                 PStrCopy(&theName,&sTemp); 
  1137.                 PStrCat((Str255 *)"\p...",&sTemp);
  1138.                 PStrCat(&LastChar,&sTemp); 
  1139.                 }
  1140.             PStrCat((Str255 *)"\p...",&theName);
  1141.             PStrCat(&LastChar,&theName); 
  1142.             }
  1143.  
  1144.         PStrCopy((Str255 *)"\pSelect '", &sTemp );
  1145.         PStrCat(&theName,&sTemp); 
  1146.         PStrCat((Str255 *)"\p'",&sTemp);
  1147.         CItem = (ControlHandle)DItem;                /* Change dialog handle to control handle */
  1148.         SetCTitle(CItem, sTemp);
  1149.         if (gFiles->Files.theStdFileReply.sfIsFolder || gFiles->Files.theStdFileReply.sfIsVolume)
  1150.             HiliteControl(CItem, 0);
  1151.         else
  1152.             HiliteControl(CItem,255);
  1153.         }
  1154.     }
  1155. else if (theItem == 10)
  1156.     theItem = sfItemOpenButton;
  1157.  
  1158. return(theItem);
  1159. }
  1160.  
  1161. /* ======================================================= */
  1162.  
  1163. /* Routine: mySelectCustomFileFilter */
  1164. /* Purpose: Filter file routine for Select Volume routine */
  1165.  
  1166. static pascal Boolean mySelectCustomFileFilter (CInfoPBPtr pb,Ptr myDataPtr)
  1167. {
  1168. Boolean        HideTheItem;
  1169. HFileInfo    *FileRecPtr;
  1170.  
  1171.  
  1172. HideTheItem = true;
  1173. FileRecPtr = (HFileInfo *)pb;
  1174. if ((FileRecPtr->ioFlAttrib & 0x0010) != 0)            /* Doing Folder */
  1175.     HideTheItem = false;
  1176.  
  1177. return(HideTheItem);
  1178. }
  1179.  
  1180. /* ======================================================= */
  1181.  
  1182. /* Routine: Init */
  1183. /* Purpose: Init */
  1184.  
  1185. void CmmFiles::Init()
  1186. {
  1187. }
  1188.  
  1189. /* ======================================================= */
  1190.  
  1191. /* Routine: Close_The_Input_File */
  1192. /* Purpose: Close The Input File */
  1193.  
  1194. void CmmFiles::Close_The_Input_File()
  1195. {
  1196. OSErr        ErrorCode;
  1197.  
  1198.  
  1199. ErrorCode = FSClose(this->Files.inputRefNum);                /* Invalidate the refnum */
  1200. this->Files.inputRefNum = 0;                                /* Close the file */
  1201. }
  1202.  
  1203. /* ======================================================= */
  1204.  
  1205. /* Routine: Close_The_Output_File */
  1206. /* Purpose: Close the output file */
  1207.  
  1208. void CmmFiles::Close_The_Output_File()
  1209. {
  1210. OSErr        ErrorCode;
  1211.  
  1212.  
  1213. ErrorCode = FSClose(this->Files.outputRefNum);            /* Invalidate the refnum */
  1214. this->Files.outputRefNum = 0;                                /* Close the file */
  1215. }
  1216.  
  1217. /* ======================================================= */
  1218.  
  1219. /* Routine: Open_The_File */
  1220. /* Purpose: Open The File */
  1221.  
  1222. void CmmFiles::Open_The_File()
  1223. {
  1224. }
  1225.  
  1226. /* ======================================================= */
  1227.  
  1228. /* Routine: Select_Volume */
  1229. /* Purpose: Select Volume */
  1230.  
  1231. void CmmFiles::Select_Volume()
  1232. {
  1233. }
  1234.  
  1235. /* ======================================================= */
  1236.  
  1237. /* Routine: Save_The_File */
  1238. /* Purpose: Save The File */
  1239.  
  1240. void CmmFiles::Save_The_File()
  1241. {
  1242. }
  1243.  
  1244. /* ======================================================= */
  1245. /* ======================================================= */
  1246.  
  1247. /* Routine: Do_The_Select_Volume */
  1248. /* Purpose: This is a routine used to select a user selected folder or volume */
  1249. /* Return TRUE for opened the file OK, else return FALSE */
  1250.  
  1251. Boolean CmmFiles::Do_The_Select_Volume(FSSpec *theFile)        /* Select a volume */
  1252. {
  1253. short    Screen_Width;                                /* Size of the current screen */
  1254. short    Screen_Height;                                /* Size of the current screen */
  1255. Point    Where;                                        /* Used for placing the SF dialog */
  1256. Boolean    OpenedOK;                                    /* Flag to return */
  1257.  
  1258.  
  1259. Screen_Width = qd.screenBits.bounds.right - qd.screenBits.bounds.left;/* Width of this screen */
  1260. Screen_Height = qd.screenBits.bounds.bottom - qd.screenBits.bounds.top;
  1261.  
  1262. Where.h = (Screen_Width / 2) - (304 / 2);            /* Place to put this dialog */
  1263. Where.v = (Screen_Height / 4) - (104 / 2);
  1264. if (Where.v < 60)
  1265.     Where.v = 60;
  1266. InitCursor();
  1267. this->Files.typeList[0] = 'GRC ';
  1268. Last_vRefNum = -2;
  1269. Last_parID = -2;
  1270. CustomGetFile((FileFilterYDProcPtr)mySelectCustomFileFilter,0,this->Files.typeList,&this->Files.theStdFileReply,
  1271.     512,Where,(DlgHookYDProcPtr)mySelectDlgFilter, nil, nil, nil, nil);
  1272.  
  1273. OpenedOK = false;                                    /* Init to did not open the file */
  1274. if (this->Files.theStdFileReply.sfGood)                    /* Only do if the user did not cancel */
  1275.     {
  1276.     *theFile = this->Files.theStdFileReply.sfFile;        /* Save the FSSpec */
  1277.     BlockMove((Ptr)&this->Files.theStdFileReply.sfFile.name,&this->Files.inputFileName,
  1278.         this->Files.theStdFileReply.sfFile.name[0]+1);
  1279.     OpenedOK = true;                                /* We selected a folder */
  1280.     }
  1281. else
  1282.     this->Files.inputFileName[0] = 0;                        /* No name for a folder */
  1283.  
  1284. return(OpenedOK);
  1285. }
  1286.  
  1287. /* ======================================================= */
  1288.  
  1289. /* Routine: Do_The_Open_File */
  1290. /* Purpose: This is a routine used to open a user selected file */
  1291. /* Return TRUE for opened the file OK, else return FALSE */
  1292.  
  1293. Boolean CmmFiles::Do_The_Open_File (short NumberOfTypes,short *theVolRefNum,ProcPtr fileFilter,
  1294.     ProcPtr dlgHook)
  1295. {
  1296. short    Screen_Width;                                /* Size of the current screen */
  1297. short    Screen_Height;                                /* Size of the current screen */
  1298. Point    Where;                                        /* Used for placing the SF dialog */
  1299. Boolean    OpenedOK;                                    /* Flag to return */
  1300. OSErr    ErrorCode;
  1301. SFReply    Reply;                                        /* Temp record for making SFGetFile call */
  1302.  
  1303.  
  1304. Screen_Width = qd.screenBits.bounds.right - qd.screenBits.bounds.left;/* Width of this screen */
  1305. Screen_Height = qd.screenBits.bounds.bottom - qd.screenBits.bounds.top;
  1306.  
  1307. Where.h = (Screen_Width / 2) - (304 / 2);            /* Place to put this dialog */
  1308. Where.v = (Screen_Height / 4) - (104 / 2);
  1309. if (Where.v < 60)
  1310.     Where.v = 60;
  1311. InitCursor();
  1312. SFGetFile(Where,(StringPtr)"/pNot used",(FileFilterProcPtr)fileFilter,NumberOfTypes,
  1313.     this->Files.typeList,(DlgHookProcPtr)dlgHook,&Reply);
  1314.  
  1315. *theVolRefNum = 0;
  1316. this->Files.Reply = Reply;
  1317. this->Files.inputRefNum = 0;                        /* We did not open */
  1318.  
  1319. OpenedOK = false;                                    /* Init to did not open the file */
  1320. if (Reply.good)                                        /* Only do if the user did not cancel */
  1321.     {
  1322.     BlockMove((Ptr)&Reply.fName,&this->Files.inputFileName,Reply.fName[0]+1);
  1323.  
  1324.     ErrorCode = SetVol(nil,Reply.vRefNum);            /* Set to this volume for later opens */
  1325.     *theVolRefNum = Reply.vRefNum;
  1326.     OpenedOK = true;                                /* Flag that we are open OK */
  1327.     }
  1328. else
  1329.     this->Files.inputFileName[0] = 0;                /* No name for a file */
  1330.  
  1331. return(OpenedOK);
  1332. }
  1333.  
  1334. /* ======================================================= */
  1335.  
  1336. /* Routine: Do_The_Save_File */
  1337. /* Purpose: This is a routine used to save a user selected file */
  1338. /* Return TRUE for opened the file OK, else return FALSE */
  1339.  
  1340. Boolean CmmFiles::Do_The_Save_File (OSType creator,OSType fileType,Str255 *Prompt,Str255 *DefaultName,
  1341.     short *theVolRefNum,short *theRefNum,ProcPtr dlgHook)
  1342. {
  1343. short    Screen_Width;                                /* Size of the current screen */
  1344. short    Screen_Height;                                /* Size of the current screen */
  1345. Point    Where;                                        /* Used for placing the SF dialog */
  1346. Boolean    OpenedOK;                                    /* Flag to return */
  1347. OSErr    ErrorCode;
  1348. SFReply    Reply;                                        /* Temp record for making SFPutFile call */
  1349.  
  1350.  
  1351. Screen_Width = qd.screenBits.bounds.right - qd.screenBits.bounds.left;/* Width of this screen */
  1352. Screen_Height = qd.screenBits.bounds.bottom - qd.screenBits.bounds.top;
  1353.  
  1354. Where.h = (Screen_Width / 2) - (304 / 2);            /* Place to put this dialog */
  1355. Where.v = (Screen_Height / 4) - (104 / 2);
  1356. if (Where.v < 60)
  1357.     Where.v = 60;
  1358. InitCursor();
  1359. SFPutFile(Where,(StringPtr)Prompt,(StringPtr)DefaultName,(DlgHookProcPtr)dlgHook,&Reply);
  1360.  
  1361. BlockMove((Ptr)&Reply.fName,&this->Files.outputFileName,Reply.fName[0]+1);
  1362.  
  1363. this->Files.Reply = Reply;
  1364. *theVolRefNum = this->Files.Reply.vRefNum;
  1365. *theRefNum = 0;
  1366. this->Files.outputRefNum = 0;
  1367.  
  1368. OpenedOK = false;                                    /* Init to did not open the file */
  1369. if (Reply.good)                                        /* Only do if the user did not cancel */
  1370.     {
  1371.     ErrorCode = FSDelete((StringPtr)&Reply.fName,Reply.vRefNum);    /* Delete an older file */
  1372.     ErrorCode = Create((StringPtr)&Reply.fName,Reply.vRefNum,creator,fileType);/* Create the file */
  1373.     ErrorCode = FSOpen((StringPtr)&Reply.fName,Reply.vRefNum,&this->Files.outputRefNum);/* Try to open the file */
  1374.  
  1375.     if (ErrorCode == 0)                                /* See if we opened it cleanly */
  1376.         {
  1377.         ErrorCode = SetFPos(this->Files.outputRefNum, fsFromStart, 0);/* Start at file beginning */
  1378.         ErrorCode = SetVol(nil, *theVolRefNum);        /* Set for later saves */
  1379.         *theRefNum = this->Files.outputRefNum;
  1380.         *theVolRefNum = Reply.vRefNum;
  1381.         OpenedOK = true;                            /* We opened the file OK */
  1382.         }
  1383.     else
  1384.         {
  1385.         ErrorCode = FSClose(this->Files.outputRefNum);    /* Close it if we can, safety */
  1386.         SysBeep(20);                                /* Just beep at the user, caller can do more */
  1387.         this->Files.outputRefNum = 0;                /* Make sure the refnum is inited */
  1388.         }
  1389.     }
  1390.  
  1391. return(OpenedOK);
  1392. }
  1393.  
  1394. /* ======================================================= */
  1395.  
  1396. /* Routine: Init */
  1397. /* Purpose: Init */
  1398.  
  1399. void CmmPrinting::Init()
  1400. {
  1401. this->Printing.hPrint = nil;                            /* Init to no print record yet */
  1402. this->Printing.PrinterIsOpen = false;                    /* We are not printing yet */
  1403. }
  1404.  
  1405. /* ======================================================= */
  1406.  
  1407. /* Routine: PageSetup */
  1408. /* Purpose: Do the page setup */
  1409.  
  1410. void CmmPrinting::PageSetup()
  1411. {
  1412. Boolean    Result;                                        /* Result from Setup dialog */
  1413.  
  1414.  
  1415. PrOpen();                                            /* Open the printer driver */
  1416.  
  1417. if (PrError() == noErr)                                /* Only do if no error  */
  1418.     {
  1419.     if (Printing.hPrint == NIL)                        /* Make a print record if there is none */
  1420.         {
  1421.         Printing.hPrint = (THPrint)NewHandle(sizeof(TPrint));
  1422.         HLock((Handle)Printing.hPrint);
  1423.         PrintDefault(Printing.hPrint);                /* Init to default values */
  1424.         }
  1425.  
  1426.     Result = PrStlDialog(Printing.hPrint);            /* Setup dialog */
  1427.     PrClose();
  1428.     }
  1429. else
  1430.     SysBeep(1);
  1431. }
  1432.  
  1433. /* ======================================================= */
  1434.  
  1435. /* Routine: PrintJobSetup */
  1436. /* Purpose: Do the job setup */
  1437.  
  1438. void CmmPrinting::PrintJobSetup()
  1439. {
  1440. Boolean    Result;                                        /* Result from Setup dialog */
  1441.  
  1442.  
  1443. PrOpen();                                            /* Open the printer driver */
  1444.  
  1445. if (PrError() == noErr)                                /* Only do if no error  */
  1446.     {
  1447.     if (Printing.hPrint == NIL)                        /* Make a print record if there is none */
  1448.         {
  1449.         Printing.hPrint = (THPrint)NewHandle(sizeof(TPrint));
  1450.         HLock((Handle)Printing.hPrint);
  1451.         PrintDefault(Printing.hPrint);                /* Init to default values */
  1452.         }
  1453.  
  1454.     Result = PrJobDialog(Printing.hPrint);            /* Setup dialog */
  1455.     PrClose();
  1456.     }
  1457. else
  1458.     SysBeep(1);
  1459. }
  1460.  
  1461. /* ======================================================= */
  1462.  
  1463. /* Routine: OpenThePrinter */
  1464. /* Purpose: Open the printer and driver for use */
  1465.  
  1466. void CmmPrinting::OpenThePrinter(Boolean *Cancelled)
  1467. {
  1468.  
  1469.  
  1470. PrOpen();                                            /* Open the printer driver */
  1471.  
  1472. if (PrError() == noErr)                                /* Only do if no error */
  1473.     {
  1474.     Printing.PrinterIsOpen = FALSE;                    /* Whether printer is open or not */
  1475.     if (Printing.hPrint == NIL)                        /* Make a print record if there is none */
  1476.         {
  1477.         Printing.hPrint = (THPrint)NewHandle(sizeof(TPrint));
  1478.         HLock((Handle)Printing.hPrint);
  1479.         PrintDefault(Printing.hPrint);                /* Init to default values */
  1480.         }
  1481.  
  1482.     *Cancelled = PrJobDialog(Printing.hPrint);        /* Setup dialog */
  1483.     Printing.CopyCount = (*Printing.hPrint)->prJob.iCopies;    /* Get number of copies to do */
  1484.     *Cancelled = !(*Cancelled);                        /* Inverted logic */
  1485.  
  1486.     Printing.pPrPort = nil;
  1487.  
  1488.     if (*Cancelled == false)                        /* Do if they did not cancel */
  1489.         {
  1490.         Printing.PrinterIsOpen = true;                /* Whether printer is open or not */
  1491.         Printing.PageCount = 1;                        /* For adding in page number */
  1492.         Printing.LineCount = 1;                        /* For printing */
  1493.         Printing.pPrPort = PrOpenDoc(Printing.hPrint, nil, nil);/* Get printing port */
  1494.         }
  1495.     }
  1496. else
  1497.     {
  1498.     SysBeep(1);
  1499.     *Cancelled = TRUE;
  1500.     }
  1501. }
  1502.  
  1503. /* ======================================================= */
  1504.  
  1505. /* Routine: CloseThePrinter */
  1506. /* Purpose: Close the printer */
  1507.  
  1508. void CmmPrinting::CloseThePrinter()
  1509. {
  1510.  
  1511.  
  1512. if (Printing.pPrPort != nil)                        /* Do if we have a port */
  1513.     {
  1514.     PrCloseDoc(Printing.pPrPort);                    /* Clear printing port */
  1515.     Printing.pPrPort = nil;
  1516.     }
  1517.  
  1518. if (Printing.hPrint != nil)                            /* Do if we have a record */
  1519.     {
  1520.     if (((*Printing.hPrint)->prJob.bJDocLoop == bSpoolLoop) && (PrError() == noErr))
  1521.         PrPicFile(Printing.hPrint, NIL, NIL, NIL, &Printing.prStatus);/* Spool it */
  1522.     }
  1523. }
  1524.  
  1525. /* ======================================================= */
  1526.  
  1527. /* Routine: Print_The_Data */
  1528. /* Purpose: Print the data */
  1529.  
  1530. void CmmPrinting::Print_The_Data()
  1531. {
  1532. }
  1533.  
  1534. /* ======================================================= */
  1535.  
  1536. /* Routine: SetupTheItem */
  1537. /* Purpose: Setup a dialog or alert item */
  1538.  
  1539. void SetupTheItem(DialogPtr theDialog,short ItemID,Boolean SizeIt,Boolean ShowIt,
  1540.     Boolean EnableIt,Boolean SetTheMax,Rect *thePosition,long ExtraData,short StringID)
  1541. {
  1542. Rect            tempRect;                            /* Temporary rectangle */
  1543. short            DType;                                /* Type of dialog item */
  1544. Handle            DItem;                                /* Handle to the dialog item */
  1545. ControlHandle    CItem;                                /* Control handle */
  1546.  
  1547.  
  1548. GetDItem(theDialog,ItemID,&DType,&DItem,&tempRect);/* Get the item handle and size */
  1549. CItem = (ControlHandle)DItem;                        /* Change to control handle */
  1550.  
  1551. if (SizeIt)                                            /* Have to resize all CDEF connected controls */
  1552.     SizeControl(CItem, tempRect.right-tempRect.left, tempRect.bottom-tempRect.top);/* Size it */
  1553. *thePosition = tempRect;                            /* Pass back the zone location and size */
  1554.  
  1555. if (ExtraData != NIL)                                /* See if extra data for a CDEF */
  1556.     (*CItem)->contrlData = (Handle)ExtraData;        /* Send it */
  1557.  
  1558. if (StringID != 0)                                    /* See if a CDEF and needs the title set again*/
  1559.     {
  1560.     GetIndString(sTemp,StringID,1);                    /* Get the string */
  1561.     SetCTitle(CItem,sTemp);                            /* Set the string */
  1562.     }
  1563.  
  1564. if (EnableIt)                                        /* See if enable or disable the zone */
  1565.     HiliteControl (CItem,0);                        /* Enable the zone */
  1566. else
  1567.     HiliteControl (CItem,255);                        /* Dim the zone */
  1568.  
  1569. if (SetTheMax)
  1570.     SetCtlMax(CItem,12345);                            /* Set the flag to the CDEF */
  1571.  
  1572. if (ShowIt)
  1573.     ShowControl(CItem);                                /* Show it to activate it */
  1574. }
  1575.  
  1576. /* ======================================================= */
  1577.  
  1578. /* Routine: CenterOnColorScreen */
  1579. /* Purpose: Center a window onto the deepest color screen */
  1580.  
  1581. void CenterOnColorScreen (WindowPtr theWindow )
  1582. {
  1583. Rect        tempRect,gdRect,temp2Rect;                /* Temporary rectangle */
  1584. GDHandle    theDevice;                                /* Graphic device */
  1585.  
  1586. if ((theWindow != NIL) && (Has.ColorQD))            /* Make sure it is safe to go ahead */
  1587.     {
  1588.     SetRect(&tempRect,-32000,-32000,32000,32000);    /* Look in all directions */
  1589.     theDevice = GetMaxDevice(&tempRect);            /* Get the deepest device */
  1590.  
  1591.     if (theDevice != NIL)                            /* Make sure we got a device */
  1592.         {
  1593.         gdRect = (*theDevice)->gdRect;                /* Get the device rect */
  1594.         temp2Rect = theWindow->portRect;            /* Get the window rect */
  1595.  
  1596.         tempRect.top = gdRect.top + ((gdRect.bottom-gdRect.top)/2) - ((temp2Rect.bottom-temp2Rect.top)/2);
  1597.         tempRect.left = gdRect.left + ((gdRect.right-gdRect.left)/2) - ((temp2Rect.right-temp2Rect.left)/2);
  1598.         MoveWindow(theWindow, tempRect.left, tempRect.top, TRUE);/* Move the window*/
  1599.         SetPort(theWindow);                         /* Prepare to write into our window */
  1600.         }
  1601.     }
  1602. }
  1603.  
  1604. /* ======================================================= */
  1605.  
  1606. /* Routine: GetDeepestColorScreenRect */
  1607. /* Purpose: Get the deepest color screen rect */
  1608.  
  1609. void GetDeepestColorScreenRect (Rect *DeepRect )
  1610. {
  1611. Rect        tempRect;                                /* Temporary rectangle */
  1612. GDHandle    theDevice;                                /* Graphic device */
  1613.  
  1614.  
  1615. *DeepRect = qd.screenBits.bounds;                        /* Default to the main screen */
  1616. theDevice = NIL;                                    /* Default to no device */
  1617. if (Has.ColorQD)                                    /* See if color QuickDraw is around */
  1618.     {
  1619.     SetRect(&tempRect,-32000,-32000,32000,32000);    /* Look in all directions */
  1620.     theDevice = GetMaxDevice(&tempRect);            /* Get the deepest device */
  1621.  
  1622.     if (theDevice != NIL)                            /* Make sure we got a device */
  1623.         *DeepRect = (*theDevice)->gdRect;            /* Get the device rect */
  1624.     }
  1625. }
  1626.  
  1627. /* ======================================================= */
  1628.  
  1629. void HiliteDefaultButton(DialogPtr theDialog,short theItem)
  1630. {
  1631. Rect            tempRect;
  1632. short            DType;                                /* Type of dialog item */
  1633. Handle            DItem;                                /* Handle to the dialog item */
  1634.  
  1635.  
  1636. GetDItem(theDialog,theItem,&DType,&DItem,&tempRect);/* Get the item handle */
  1637. PenSize(3, 3);                                        /* Change pen to draw thick default outline */
  1638. InsetRect(&tempRect, -4, -4);                        /* Draw outside the button by 1 pixel */
  1639. FrameRoundRect(&tempRect,16,16);                    /* Draw the outline */
  1640. PenSize(1, 1);                                         /* Restore the pen size to the default value */
  1641. }
  1642.  
  1643. /* ======================================================= */
  1644.  
  1645. void CheckKeysInDialog(DialogPtr theDialog,Boolean *valMyFilter,EventRecord *theEvent,short *itemHit)
  1646. {
  1647. short            chCode;                            /* Key entered */
  1648. char            MyCmdKey;                        /* The command key */
  1649. Boolean            CmdDown;                        /* Flag for command key used */
  1650. Rect            tempRect;                        /* Temporary rectangle */
  1651. short            DType;                            /* Type of dialog item */
  1652. Handle            DItem;                            /* Handle to the dialog item */
  1653. ControlHandle    CItem;                            /* Control handle */
  1654. long            LTemp;
  1655.  
  1656.  
  1657. if (theEvent->what == keyDown)
  1658.     {
  1659.     chCode =  (short)theEvent->message & charCodeMask;/* Get character */
  1660.     MyCmdKey = (char)chCode;                        /* Change to ASCII */
  1661.     CmdDown = ((theEvent->modifiers & cmdKey) != 0);/* Get command key state */
  1662.     if (CmdDown)                                    /* Do if command key was down */
  1663.         {
  1664.         if ((MyCmdKey == 'x') || (MyCmdKey == 'X'))
  1665.             {
  1666.             DlgCut(theDialog);
  1667.             *valMyFilter = TRUE;
  1668.             }
  1669.         else if ((MyCmdKey =='c') || (MyCmdKey == 'C')) 
  1670.             {
  1671.             DlgCopy(theDialog);
  1672.             *valMyFilter = TRUE;
  1673.             }
  1674.         else if ((MyCmdKey =='v') || (MyCmdKey == 'V'))
  1675.             {
  1676.             DlgPaste(theDialog);
  1677.             *valMyFilter = TRUE;
  1678.             }
  1679.         }
  1680.     else if ((chCode == 13) || (chCode == 3))        /* CR or Enter */
  1681.         {
  1682.         *valMyFilter = TRUE;                            /* Flag we got a hit */
  1683.         *itemHit = 1;                                /* Default for CR */
  1684.         GetDItem (theDialog ,*itemHit, &DType, &DItem, &tempRect);/* Get the item */
  1685.         if (DType == (ctrlItem + btnCtrl))            /* If a button then ... */
  1686.             {
  1687.             CItem = (ControlHandle)DItem;            /* Make it a controlhandle */
  1688.             HiliteControl(CItem, 10);                /* Hilite it */
  1689.             LTemp = TickCount() + 15;                /* Flash the button for 1/4 second */
  1690.             do
  1691.                 {}
  1692.             while (LTemp > TickCount());
  1693.             HiliteControl(CItem, 0);                /* UnHilite it */
  1694.             }
  1695.         }
  1696.     }
  1697. }
  1698.  
  1699. /* ======================================================= */
  1700.  
  1701. void SetupNormalControl(DialogPtr theDialog,short theItem,Boolean Enabled,short InitialValue)
  1702. {
  1703. Rect            tempRect;                            /* Temporary rectangle variable */
  1704. short            DType;                                /* Type of dialog item */
  1705. Handle            DItem;                                /* Handle to the dialog item */
  1706. ControlHandle    CItem;                                /* Control handle */
  1707.  
  1708.  
  1709. GetDItem(theDialog,theItem,&DType,&DItem,&tempRect);/* Get the item handle */
  1710. CItem = (ControlHandle)DItem;                        /* Change dialog handle to control handle */
  1711.  
  1712. if (Enabled)                                        /* See if enable or disable the zone */
  1713.     HiliteControl (CItem,0);                        /* Enable the zone */
  1714. else
  1715.     HiliteControl (CItem,255);                        /* Dim the zone */
  1716.  
  1717. SetCtlValue(CItem,InitialValue);
  1718. }
  1719.  
  1720. /* ======================================================= */
  1721.  
  1722. static void BasicSetup(DialogPtr theDialog,short theItem,Boolean Enabled,short MessageResID,
  1723.     ControlHandle *theCItem)
  1724. {
  1725. Rect            tempRect;                            /* Temporary rectangle variable */
  1726. short            DType;                                /* Type of dialog item */
  1727. Handle            DItem;                                /* Handle to the dialog item */
  1728. ControlHandle    CItem;                                /* Control handle */
  1729. Str255            sTemp;
  1730.  
  1731.  
  1732. GetDItem(theDialog,theItem,&DType,&DItem,&tempRect);/* Get the item handle */
  1733. CItem = (ControlHandle)DItem;                        /* Change dialog handle to control handle */
  1734. SizeControl(CItem, tempRect.right-tempRect.left, tempRect.bottom-tempRect.top);/* Size it */
  1735.  
  1736. if (Enabled)                                        /* See if enable or disable the zone */
  1737.     HiliteControl (CItem,0);                        /* Enable the zone */
  1738. else
  1739.     HiliteControl (CItem,255);                        /* Dim the zone */
  1740.  
  1741. SetCtlValue(CItem,0);
  1742.  
  1743. if (MessageResID != 0)
  1744.     {
  1745.     GetIndString(sTemp,MessageResID,1);                /* Get the string */
  1746.     SetCTitle(CItem,sTemp);                            /* Set the string */
  1747.     }
  1748. *theCItem = CItem;
  1749. }
  1750.  
  1751. /* ======================================================= */
  1752.  
  1753. void SetupHotSpot(DialogPtr theDialog,short theItem,Boolean MakeHotSpot,long LineWidth,
  1754.     long ShadowWidth,short MessageResID,Boolean Enabled)
  1755. {
  1756. ControlHandle    CItem;                                /* Control handle */
  1757. long            LTemp;
  1758.  
  1759.  
  1760. BasicSetup(theDialog,theItem,Enabled,MessageResID,&CItem);
  1761.  
  1762. if (MakeHotSpot)
  1763.     LTemp = 0x00FF0000;                                /* Tell the CDEF that it is a HotSpot */
  1764. else
  1765.     LTemp = 0x00000000;                                /* Tell the CDEF that it is a Rectangle */
  1766.  
  1767. if (MessageResID != 0)
  1768.     LTemp = LTemp + 0x01000000;
  1769.  
  1770. LTemp = LTemp + ((0x000000FF & LineWidth) * 0x00000100);    /* Set the line width */
  1771. LTemp = LTemp + (0x000000FF & ShadowWidth);            /* Set the shadow width */
  1772.  
  1773. (*CItem)->contrlData = (Handle)LTemp;                /* Send it */
  1774.  
  1775. ShowControl(CItem);                                    /* Show it to activate it */
  1776. }
  1777.  
  1778. /* ======================================================= */
  1779.  
  1780. void SetupPlugin(DialogPtr theDialog,short theItem,Boolean Enabled,long NormalID,long HilitedID,
  1781.     short MessageResID)
  1782. {
  1783. ControlHandle    CItem;                                /* Control handle */
  1784. long            LTemp;
  1785.  
  1786.  
  1787. BasicSetup(theDialog,theItem,Enabled,MessageResID,&CItem);
  1788.  
  1789. LTemp = (HilitedID * 0x00010000) + NormalID;    
  1790. (*CItem)->contrlData = (Handle)LTemp;                /* Send it */
  1791.  
  1792. SetCtlMax(CItem,12345);                                /* Set the flag to the CDEF */
  1793.  
  1794. ShowControl(CItem);                                    /* Show it to activate it */
  1795. }
  1796.  
  1797. /* ======================================================= */
  1798.  
  1799. void SetupMinMaxValue(DialogPtr theDialog,short theItem,short min,short max,short value)
  1800. {
  1801. Rect            tempRect;                            /* Temporary rectangle variable */
  1802. short            DType;                                /* Type of dialog item */
  1803. Handle            DItem;                                /* Handle to the dialog item */
  1804. ControlHandle    CItem;                                /* Control handle */
  1805.  
  1806.  
  1807. GetDItem(theDialog,theItem,&DType,&DItem,&tempRect);/* Get the item handle */
  1808. CItem = (ControlHandle)DItem;                        /* Change dialog handle to control handle */
  1809. SetCtlMin(CItem,min);                                /* The Min */
  1810. SetCtlMax(CItem,max);                                /* The Max */
  1811. SetCtlValue(CItem,value);                            /* The first selection */
  1812. }
  1813.  
  1814. /* ======================================================= */
  1815.  
  1816. void SetupPopupMenu(DialogPtr theDialog,short theItem,Boolean Enabled,short theMenuID,short value)
  1817. {
  1818. Rect            tempRect;                            /* Temporary rectangle variable */
  1819. short            DType;                                /* Type of dialog item */
  1820. Handle            DItem;                                /* Handle to the dialog item */
  1821. ControlHandle    CItem;                                /* Control handle */
  1822.  
  1823.  
  1824. GetDItem(theDialog,theItem,&DType,&DItem,&tempRect);/* Get the item handle */
  1825. CItem = (ControlHandle)DItem;                        /* Change dialog handle to control handle */
  1826. SizeControl(CItem,tempRect.right - tempRect.left, tempRect.bottom - tempRect.top);/* Size it to the item size */
  1827. SetCtlValue(CItem,value);                            /* The first selection */
  1828. SetCtlMax(CItem,theMenuID);                            /* The max value is the menu ID */
  1829.  
  1830. if (Enabled)                                        /* See if enable or disable the zone */
  1831.     HiliteControl (CItem,0);                        /* Enable the zone */
  1832. else
  1833.     HiliteControl (CItem,255);                        /* Dim the zone */
  1834.  
  1835. SetNameForPopup(CItem);                                /* Set the popup title */
  1836. ShowControl(CItem);                                    /* Show it to activate it */
  1837. }
  1838.  
  1839. /* ======================================================= */
  1840.  
  1841. void SetupPalette(DialogPtr theDialog,short theItem,Boolean Enabled,long NumberRows,long NumberCols,
  1842.     long PalPictureID,long HiliteMethod)
  1843. {
  1844. ControlHandle    CItem;                                /* Control handle */
  1845.  
  1846.  
  1847. BasicSetup(theDialog,theItem,Enabled,0,&CItem);
  1848.  
  1849. SetCtlMax(CItem,(NumberRows * 0x00000100) + NumberCols);    /* The max value is the (rows * 0x0100) + columns */
  1850. SetCtlValue(CItem,(1 * 0x0100) + 1 );                /* The current value is the (rows * 0x0100) + columns */
  1851. (*CItem)->contrlData = (Handle)((0xFF000000 | PalPictureID) + (HiliteMethod * 0x00010000));/* Picture ID and hilite method */
  1852. ShowControl(CItem);                                    /* Show it to activate it */
  1853. }
  1854.  
  1855. /* ======================================================= */
  1856.  
  1857. void SetupIconSicn(DialogPtr theDialog,short theItem,Boolean Enabled,
  1858.     long NormalID,long HilitedID)
  1859. {
  1860. ControlHandle    CItem;                                /* Control handle */
  1861. long            LTemp;
  1862.  
  1863.  
  1864. BasicSetup(theDialog,theItem,Enabled,0,&CItem);
  1865.  
  1866. LTemp = (NormalID * 0x00010000) + HilitedID;    
  1867. (*CItem)->contrlData = (Handle)LTemp;                /* Send it */
  1868.  
  1869. SetCtlMax(CItem,12345);                                /* Set the flag to the CDEF */
  1870.  
  1871. ShowControl(CItem);                                    /* Show it to activate it */
  1872. }
  1873.  
  1874. /* ======================================================= */
  1875.  
  1876. void ClearTheRadio(DialogPtr theDialog,short theItem,short *value)
  1877. {
  1878. Rect            tempRect;                            /* Temporary rectangle variable */
  1879. short            DType;                                /* Type of dialog item */
  1880. Handle            DItem;                                /* Handle to the dialog item */
  1881. ControlHandle    CItem;                                /* Control handle */
  1882.  
  1883.  
  1884. GetDItem(theDialog,theItem,&DType,&DItem,&tempRect);/* Get which item was pressed */
  1885. CItem = (ControlHandle)DItem;                        /* Change the pointer for getting to the control */
  1886. SetCtlValue(CItem,0);
  1887. *value = 0;                                            /* Set the current Radio value */
  1888. }
  1889.  
  1890. /* ======================================================= */
  1891.  
  1892. void DrawStaticTextBox(short ResID,Rect *theRect,short Justify,short theSize,
  1893.     short theFont,Style theStyle)
  1894. {
  1895. Str255        sTemp;
  1896.  
  1897.  
  1898. TextSize(theSize);                            /* Set text size */
  1899. TextFont(theFont);                            /* Set text font */
  1900. TextFace(theStyle);                            /* Set text style */
  1901. GetIndString(sTemp,ResID,1);                /* Get the string */
  1902. TextBox(&sTemp[1],sTemp[0],theRect,Justify);
  1903.  
  1904. TextFont(applFont);                            /* Back to the application font */
  1905. TextSize(12);                                /* Back to the application size */
  1906. TextFace(0);                                /* Set text style */
  1907. }
  1908.  
  1909. /* ======================================================= */
  1910.  
  1911. void DrawStaticLine(short ResID,short Left,short Top,short theSize,short theFont,Style theStyle)
  1912. {
  1913. Str255        sTemp;
  1914.  
  1915.  
  1916. TextSize(theSize);                            /* Set text size */
  1917. TextFont(theFont);                            /* Set text font */
  1918. TextFace(theStyle);                            /* Set text style */
  1919. GetIndString(sTemp,ResID,1);                /* Get the string */
  1920. MoveTo(Left,Top + theSize - 3);
  1921. DrawString(sTemp);
  1922.  
  1923. TextFont(applFont);                            /* Back to the application font */
  1924. TextSize(12);                                /* Back to the application size */
  1925. TextFace(0);                                /* Set text style */
  1926. }
  1927.  
  1928. /* ======================================================= */
  1929.  
  1930. void DrawTheTEArea(Rect *theTERect,TEHandle theTE,short theSize,short theFont,Style theStyle)
  1931. {
  1932.  
  1933.  
  1934. TextSize(theSize);                            /* Set text size */
  1935. TextFont(theFont);                            /* Set text font */
  1936. TextFace(theStyle);                            /* Set text style */
  1937. FrameRect(theTERect);                        /* Frame this TE area */
  1938. if (theTE != nil)
  1939.     TEUpdate(theTERect,theTE);                /* Update the TE area */
  1940.  
  1941. TextFont(applFont);                            /* Back to the application font */
  1942. TextSize(12);                                /* Back to the application size */
  1943. TextFace(0);                                /* Set text style */
  1944. }
  1945.  
  1946. /* ======================================================= */
  1947.  
  1948. ControlHandle MakeNormalControl(WindowPtr theWindow,short theResID,Boolean Enabled,short InitialValue)
  1949. {
  1950. ControlHandle    theCtrl;
  1951.  
  1952.  
  1953. theCtrl = GetNewControl(theResID,theWindow);    /* Make a new control */
  1954. SetCtlValue(theCtrl,InitialValue);                /* Set the value */
  1955. if (Enabled)
  1956.     HiliteControl(theCtrl,0);                    /* Enable the control */
  1957. else
  1958.     HiliteControl(theCtrl,255);                    /* Disable the control */
  1959.  
  1960. return(theCtrl);
  1961. }
  1962.  
  1963. /* ======================================================= */
  1964.  
  1965. ControlHandle MakeHotSpot(WindowPtr theWindow,short theResID,Boolean MakeHotSpot,long LineWidth,
  1966.     long ShadowWidth,short MessageResID,Boolean Enabled)
  1967. {
  1968. ControlHandle    theCtrl;
  1969. long            LTemp;
  1970. Str255            sTemp;
  1971.  
  1972.  
  1973. theCtrl = GetNewControl(theResID,theWindow);    /* Make a new control */
  1974. HideControl(theCtrl);                            /* Hide till we set all the parameters */
  1975.  
  1976. if (Enabled)
  1977.     HiliteControl(theCtrl,0);                    /* Enable the control */
  1978. else
  1979.     HiliteControl(theCtrl,255);                    /* Disable the control */
  1980.  
  1981. if (MakeHotSpot)
  1982.     LTemp = 0x00FF0000;                            /* Tell the CDEF that it is a HotSpot */
  1983. else
  1984.     LTemp = 0x00000000;                            /* Tell the CDEF that it is a Rectangle */
  1985.  
  1986. LTemp = LTemp + ((0x000000FF & LineWidth) * 0x00000100);    /* Set the line width */
  1987. LTemp = LTemp + (0x000000FF & ShadowWidth);        /* Set the shadow width */
  1988.  
  1989. if (MessageResID != 0)
  1990.     {
  1991.     LTemp = LTemp + 0x01000000;
  1992.     GetIndString(sTemp,MessageResID,1);            /* Get the string */
  1993.     SetCTitle(theCtrl,sTemp);                    /* Set the string */
  1994.     }
  1995.  
  1996. (*theCtrl)->contrlData = (Handle)LTemp;            /* Send it */
  1997.  
  1998. SetCtlValue(theCtrl,0);
  1999. ShowControl(theCtrl);                            /* Show it to activate it */
  2000.  
  2001. return(theCtrl);
  2002. }
  2003.  
  2004. /* ======================================================= */
  2005.  
  2006. ControlHandle MakeIconSicn(WindowPtr theWindow,short theResID,Boolean Enabled,
  2007.     long NormalID,long HilitedID)
  2008. {
  2009. ControlHandle    theCtrl;
  2010.  
  2011.  
  2012. theCtrl = GetNewControl(theResID,theWindow);    /* Make a new button */
  2013. if (Enabled)
  2014.     HiliteControl(theCtrl,0);                    /* Enable the button */
  2015. else
  2016.     HiliteControl(theCtrl,255);                    /* Disable the button */
  2017. (*theCtrl)->contrlData = 
  2018.         (Handle)((NormalID * 0x00010000) + HilitedID);    /* Set the icons to be used */
  2019.  
  2020. return(theCtrl);
  2021. }
  2022.  
  2023. /* ======================================================= */
  2024.  
  2025. ControlHandle MakePlugin(WindowPtr theWindow,short theResID,Boolean Enabled,
  2026.     long NormalID,long HilitedID,short MessageResID,short InitialValue)
  2027. {
  2028. ControlHandle    theCtrl;
  2029. long            LTemp;
  2030. Str255            sTemp;
  2031.  
  2032.  
  2033. theCtrl = GetNewControl(theResID,theWindow);    /* Make a new button */
  2034. HideControl(theCtrl);
  2035. if (Enabled)
  2036.     HiliteControl(theCtrl,0);                    /* Enable the button */
  2037. else
  2038.     HiliteControl(theCtrl,255);                    /* Disable the button */
  2039.  
  2040. LTemp = (HilitedID * 0x00010000) + NormalID;    
  2041. (*theCtrl)->contrlData = (Handle)LTemp;            /* Send it */
  2042.  
  2043. SetCtlMax(theCtrl,12345);                        /* Set the flag to the CDEF */
  2044.  
  2045. if (MessageResID != 0)
  2046.     {
  2047.     GetIndString(sTemp,MessageResID,1);            /* Get the string */
  2048.     SetCTitle(theCtrl,sTemp);                    /* Set the string */
  2049.     }
  2050.  
  2051. SetCtlValue(theCtrl,InitialValue);
  2052. ShowControl(theCtrl);                            /* Show it to activate it */
  2053.  
  2054. return(theCtrl);
  2055. }
  2056.  
  2057. /* ======================================================= */
  2058.  
  2059. void MakeMinMaxValue(ControlHandle theControl,short min,short max,short value)
  2060. {
  2061.  
  2062. SetCtlMin(theControl,min);                                /* The Min */
  2063. SetCtlMax(theControl,max);                                /* The Max */
  2064. SetCtlValue(theControl,value);                            /* The first selection */
  2065. }
  2066.  
  2067. /* ======================================================= */
  2068.  
  2069. ControlHandle MakePopupMenu(WindowPtr theWindow,short theResID,Boolean Enabled,
  2070.     short theMenuID,short value)
  2071. {
  2072. ControlHandle    theCtrl;
  2073. long            LTemp;
  2074. Str255            sTemp;
  2075.  
  2076.  
  2077. theCtrl = GetNewControl(theResID,theWindow);    /* Make a new button */
  2078. HideControl(theCtrl);
  2079. if (Enabled)
  2080.     HiliteControl(theCtrl,0);                    /* Enable the button */
  2081. else
  2082.     HiliteControl(theCtrl,255);                    /* Disable the button */
  2083.  
  2084. SetCtlMax(theCtrl,theMenuID);                    /* Set the menu for the CDEF */
  2085.  
  2086. SetCtlValue(theCtrl,value);
  2087. SetNameForPopup(theCtrl);                        /* Set the popup title */
  2088. ShowControl(theCtrl);                            /* Show it to activate it */
  2089.  
  2090. return(theCtrl);
  2091. }
  2092.  
  2093. /* ======================================================= */
  2094.  
  2095. void UpdateTheList(RgnHandle theRgn,ListHandle theList,Rect *theRect,short theSize,
  2096.     short theFont,Style theStyle,Boolean InDialog)
  2097. {
  2098. Rect        tempRect;
  2099.  
  2100.  
  2101. TextSize(theSize);                            /* Set text size */
  2102. TextFont(theFont);                            /* Set text font */
  2103. TextFace(theStyle);                            /* Set text style */
  2104.  
  2105. LUpdate(theRgn,theList);                    /* Update this list */
  2106. tempRect = *theRect;                        /* Start with full size */
  2107. InsetRect(&tempRect, -1, -1);                /* Set for framing */
  2108. FrameRect(&tempRect);                        /* Frame it */
  2109.  
  2110. if (InDialog)
  2111.     TextFont(systemFont);                    /* Back to the system font */
  2112. else
  2113.     TextFont(applFont);                        /* Back to the application font */
  2114. TextSize(12);                                /* Back to the application size */
  2115. TextFace(0);                                /* Set text style */
  2116. }
  2117.  
  2118. /* ======================================================= */
  2119.  
  2120. void ClickInTheList(Point myPt,short modifiers,ListHandle theList,short theSize,
  2121.     short theFont,Style theStyle,Boolean InDialog)
  2122. {
  2123. Boolean        DoubleClick;
  2124.  
  2125.  
  2126. TextSize(theSize);                            /* Set text size */
  2127. TextFont(theFont);                            /* Set text font */
  2128. TextFace(theStyle);                            /* Set text style */
  2129.  
  2130. DoubleClick = LClick(myPt,modifiers,theList);
  2131.  
  2132. if (InDialog)
  2133.     TextFont(systemFont);                    /* Back to the system font */
  2134. else
  2135.     TextFont(applFont);                        /* Back to the application font */
  2136. TextSize(12);                                /* Back to the application size */
  2137. TextFace(0);                                /* Set text style */
  2138. }
  2139.  
  2140. /* ======================================================= */
  2141.  
  2142. ControlHandle MakePalette(WindowPtr theWindow,short theResID,Boolean Enabled,long NumberRows,
  2143.     long NumberCols,long PalPictureID,long HiliteMethod)
  2144. {
  2145. ControlHandle    theCtrl;
  2146.  
  2147.  
  2148. theCtrl = GetNewControl(theResID,theWindow);    /* Make a new button */
  2149. HideControl(theCtrl);
  2150. if (Enabled)
  2151.     HiliteControl(theCtrl,0);                    /* Enable the button */
  2152. else
  2153.     HiliteControl(theCtrl,255);                    /* Disable the button */
  2154.  
  2155. SetCtlMax(theCtrl,(NumberRows * 0x00000100) + NumberCols);    /* The max value is the (rows * 0x0100) + columns */
  2156. SetCtlValue(theCtrl,(1 * 0x0100) + 1 );                /* The current value is the (rows * 0x0100) + columns */
  2157. (*theCtrl)->contrlData = (Handle)((0xFF000000 | PalPictureID) + (HiliteMethod * 0x00010000));/* Picture ID and hilite method */
  2158.  
  2159. ShowControl(theCtrl);                            /* Show it to activate it */
  2160.  
  2161. return(theCtrl);
  2162. }
  2163.  
  2164. /* ======================================================= */
  2165.  
  2166. void Activate_TE_Area(Boolean InDialog,Point myPt,TEHandle theTE,short textSize,short textFont,Style textStyle)
  2167. {
  2168.  
  2169.  
  2170. TextSize(textSize);                            /* Set text size */
  2171. TextFont(textFont);                            /* Set text font */
  2172. TextFace(textStyle);                        /* Set text style */
  2173. if (theInput != nil)                        /* See if there is already a TE area */
  2174.     TEDeactivate(theInput);                    /* ...Yes, so turn it off */
  2175.  
  2176. theInput = theTE;
  2177. TEActivate(theInput);                        /* Turn it on */
  2178. TEClick(myPt,false,theInput);
  2179. if (InDialog)
  2180.     TextFont(systemFont);                    /* Back to the system font */
  2181. else
  2182.     TextFont(applFont);                        /* Back to the application font */
  2183. TextSize(12);
  2184. TextFace(0);
  2185. }
  2186.  
  2187. /* ======================================================= */
  2188. /* ======================================================= */
  2189.